#!/usr/bin/perl
#delmod.cgi

require './mirrorman-lib.pl';
&ReadParse();

$selected_line=$in{'modline'};
@mod_line=split(/:/, $selected_line);
$modname=$mod_line[0];
$command=$in{'command'};

open(FH, "/sysvol/etc/mirrortab");
@mirrortab=<FH>;
close(FH);
&rm_mirrortab($selected_line, @mirrortab);

open(FHB, "/etc/rsyncd.conf");
@rsync=<FHB>;
close(FHB);
&rm_rsyncd_conf($modname, @rsync);
#&footer("/", $text{'index'});

&redirect("index.cgi");
